home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / sci / mathplot.lha / MathPlot / Macros / test14.rexx < prev    next >
OS/2 REXX Batch file  |  1993-03-04  |  386b  |  20 lines
  1. /* test discussion */
  2. address "MPlot_ARexx"
  3. options results
  4.  
  5. setnumprecision 4
  6.  
  7. getpoints "cos(x) zero stem a."
  8. do i=0 to a.xpoints.count-1
  9. say i a.xpoints.i a.ypoints.i a.typ.i
  10. end
  11.  
  12. getpoints "cos(x) max stem a."
  13. do i=0 to a.xpoints.count-1
  14. say i a.xpoints.i a.ypoints.i a.typ.i
  15. end
  16.  
  17. getpoints "cos(x) turn stem a."
  18. do i=0 to a.xpoints.count-1
  19. say i a.xpoints.i a.ypoints.i a.typ.i
  20. end